home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / unico1.zip / BITBLT.SCR next >
Text File  |  1991-12-15  |  401b  |  14 lines
  1. i=0
  2. xStart = 100
  3. yStart = 100
  4. nWidth =  100
  5. nHeight = 100
  6. while(i < nWidth)
  7.   GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
  8.   GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
  9.   GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
  10.   GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
  11.   GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
  12.   i = i + 4
  13. endwhile
  14. exit